home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / JOE-DICK.ARC / JOE DICK BOOT (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  2KB  |  45 lines
  1. 1 POKE53281,0:POKE53280,0:PRINT"[147][159]";CHR$(14)
  2. 10 PRINT"***** [202]OE [196]ICK, [208].[201]. [211]TARTER [203]IT[146] ******"
  3. 11 PRINT"[215]HEN THIS PROGRAM IS RUN, IT WILL DO"
  4. 12 PRINT"THE FOLLOWING:"
  5. 13 PRINTTAB(5);"1. [210]ENAME 'ACASE #1'"
  6. 14 PRINTTAB(9)"TO INCLUDE A 'CHR$(1)'.
  7. 15 [153][163]5)"2. (null)ENAME 'BCASE #1' "
  8. 16 [153][163]9)"TO INCLUDE A 'CHR$(2)'.
  9. 17 PRINTTAB(5)"3. [211]CRATCH THIS STARTER"
  10. 18 PRINTTAB(9)"PROGRAM FROM YOUR DISK.":PRINTTAB(5)"4. [210]ENAME THE NEW BOOT PROGRAM."
  11. 19 PRINTTAB(5)"5. [214]ALIDATE YOUR DISK."
  12. 20 PRINTTAB(5)"6. [204]OAD & RUN THE ACTUAL"
  13. 21 PRINTTAB(9)"ADVENTURE."
  14. 25 PRINT"[201]F YOU ARE A [194][194][211] SYSOP, PLEASE DON'T"
  15. 27 PRINT"EXECUTE THIS PROGRAM AS IT WILL MAKE IT"
  16. 28 PRINT"IMPOSSIBLE FOR YOUR USERS TO RUN    "
  17. 29 PRINT"THIS ADVENTURE WITHOUT MANUALLY       "
  18. 30 PRINT"RENAMING THE PROGRAMS."
  19. 35 PRINT"[158][208]RESS [210][197][212][213][210][206][146] TO CONTINUE INSTRUCTIONS
  20. 40 [161]A$:[139]A$[179][177][199](13)[167]40
  21. 45 [153]"OPENLOADRIGHT$F YOU DO WISH TO EXECUTE THIS PROGRAM,
  22. 46 PRINT"PLEASE INDICATE SO BY TYPING 'READY' AT"
  23. 47 PRINT"THE PROMPT BELOW.  [193]NY OTHER ENTRY WILL"
  24. 48 PRINT"STOP THIS PROGRAM."
  25. 50 INPUT"[212]YPE 'READY' TO EXECUTE:";F$
  26. 51 IFF$="READY"ORF$="[210][197][193][196][217]"THEN90
  27. 55 END
  28. 90 PRINT"[194]EFORE [201] GO, [201] SHOULD TELL YOU THAT"
  29. 91 PRINT"AFTER EXECUTING THIS PROGRAM, THE GAME"
  30. 92 PRINT"SHOULD BE LOADED BY TYPING:":PRINT"LOAD 'JOE DICK BOOT',8,1"
  31. 93 PRINT"[194]E SURE AND USE DOUBLE QUOTES AROUND":PRINT"THE TITLE."
  32. 94 FORC=1TO3000:NEXT
  33. 95 PRINT"[206]OW GO HAVE A BEER...":PRINT"[212]HIS IS GONNA TAKE A WHILE..."
  34. 100 OPEN15,8,15,"I0"
  35. 110 PRINT#15,"R0:"+CHR$(1)+"CASE #1=ACASE #1"
  36. 115 INPUT#15,EN,EN$:IFENTHENPRINTEN,EN$:CLOSE15:END
  37. 120 PRINT#15,"R0:"+CHR$(2)+"CASE #1=BCASE #1"
  38. 125 INPUT#15,EN,EN$:IFENTHENPRINTEN,EN$:CLOSE15:END
  39. 126 PRINT#15,"S0:JOE DICK BOOT"
  40. 130 PRINT#15,"R0:JOE DICK BOOT=CASE #1"
  41. 140 PRINT#15,"V0"
  42. 145 CLOSE15:PRINT"[158][204]OADING..."
  43. 150 IFT=0THENT=1:LOAD"JOE DICK BOOT",8,1
  44. 160 NEW
  45.